home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / amigae33a.lha / E_v3.3a / Src.lha / Src / Tools / Useful / disk.e < prev    next >
Text File  |  1995-09-04  |  773b  |  39 lines
  1. OPT MODULE
  2.  
  3. EXPORT DEF diskbase
  4.  
  5. EXPORT PROC allocUnit(unitNum)
  6.   MOVE.L unitNum, D0
  7.   MOVE.L diskbase, A6
  8.   JSR -6(A6)  -> Offset of real AllocUnit
  9. ENDPROC D0
  10.  
  11. EXPORT PROC freeUnit(unitNum)
  12.   MOVE.L unitNum, D0
  13.   MOVE.L diskbase, A6
  14.   JSR -12(A6)  -> Offset of real FreeUnit
  15. ENDPROC
  16.  
  17. EXPORT PROC getUnit(unitPointer)
  18.   MOVE.L unitPointer, A1
  19.   MOVE.L diskbase, A6
  20.   JSR -18(A6)  -> Offset of real GetUnit
  21. ENDPROC D0
  22.  
  23. EXPORT PROC giveUnit()
  24.   MOVE.L diskbase, A6
  25.   JSR -24(A6)  -> Offset of real GiveUnit
  26. ENDPROC
  27.  
  28. EXPORT PROC getUnitID(unitNum)
  29.   MOVE.L unitNum, D0
  30.   MOVE.L diskbase, A6
  31.   JSR -30(A6)  -> Offset of real GetUnitID
  32. ENDPROC D0
  33.  
  34. EXPORT PROC readUnitID(unitNum)
  35.   MOVE.L unitNum, D0
  36.   MOVE.L diskbase, A6
  37.   JSR -36(A6)  -> Offset of real ReadUnitID
  38. ENDPROC D0
  39.